home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 8
/
Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso
/
Aminet
/
docs
/
misc
/
UMSFAQv2.lha
/
UMS-FAQ
/
rexx
/
MyLine.rexx
< prev
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
OS/2 REXX Batch file
|
1995-05-10
|
169 b
|
15 lines
/* MyLine by TLC v1.0 3/5/95 */
call open(1,'Work:UMS/rexx/lines','r')
nl=readln(1)
lc=random(1,nl,time('s'))
do i=1 to lc
z=readln(1)
end
call close(1)
say z
exit